home *** CD-ROM | disk | FTP | other *** search
/ PC Users 1999 April / Cd Pc Users extra 19 abril 1999.iso / Prog / Inst / PCUn95 / ShellExe / frmPrinc.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-02-11  |  1.8 KB  |  51 lines
  1. VERSION 5.00
  2. Begin VB.Form frmPrinc 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "Demo de ShellExecute"
  5.    ClientHeight    =   1815
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4605
  9.    Icon            =   "frmPrinc.frx":0000
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   1815
  14.    ScaleWidth      =   4605
  15.    StartUpPosition =   2  'CenterScreen
  16.    Begin VB.CommandButton cmdEjecutar 
  17.       Caption         =   "Ejecutar"
  18.       Height          =   495
  19.       Left            =   240
  20.       TabIndex        =   1
  21.       Top             =   1080
  22.       Width           =   1215
  23.    End
  24.    Begin VB.TextBox txtComando 
  25.       Height          =   285
  26.       Left            =   240
  27.       TabIndex        =   0
  28.       Top             =   600
  29.       Width           =   4095
  30.    End
  31.    Begin VB.Label lblTitulo 
  32.       AutoSize        =   -1  'True
  33.       Caption         =   "Nombre de un programa, carpeta, documento, URL..."
  34.       Height          =   195
  35.       Left            =   240
  36.       TabIndex        =   2
  37.       Top             =   240
  38.       Width           =   3780
  39.    End
  40. Attribute VB_Name = "frmPrinc"
  41. Attribute VB_GlobalNameSpace = False
  42. Attribute VB_Creatable = False
  43. Attribute VB_PredeclaredId = True
  44. Attribute VB_Exposed = False
  45. Option Explicit
  46. Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
  47. Private Sub cmdEjecutar_Click()
  48.    Dim ret As Long
  49.    ret = ShellExecute(Me.hwnd, vbNullString, txtComando, "", "", vbNormalFocus)
  50. End Sub
  51.